# Title     : TODO
# Objective : TODO
# Created by: masaikk
# Created on: 2021/3/5


seg.df<-read.csv("http://goo.gl/qw303p")
summary(seg.df)


tmp.tab<-table(rep(c(1:4),times=c(25,25,25,20)))

tmp.tab

chisq.test(tmp.tab)